home *** CD-ROM | disk | FTP | other *** search
/ Aminet 44 / Aminet 44 (2001)(GTI - Schatztruhe)[!][Aug 2001].iso / Aminet / util / rexx / rmh.lha / RMH / Examples / ma.rexx < prev    next >
OS/2 REXX Batch file  |  2001-05-24  |  288b  |  17 lines
  1. /*
  2. */
  3.  
  4. l="rmh.library";if ~show("L",l) then;if ~addlib(l,0,-30) then exit
  5.  
  6. if ~ReadArgs("ASSIGN") then do
  7.     call PrintFault()
  8.     exit
  9. end
  10. if parm.0.flag then dir=parm.0.value
  11. else dir="libs:"
  12.  
  13. if MultiAssign(dir,"multi") then
  14.     do i=0 to multi.num-1
  15.         say i":" multi.i
  16.     end
  17.